-- background: 2777 from stack: in.1a2
-- bmap block id: 204985
-- flags: 4000
-- background id: 0
-- name: News Stack Control
----- HyperTalk script -----
on fidoCheck
  global newMessage
  global ignoreLine
  global fileLine
  if (char 1 of fileLine = "#") then
    put "n" into ignoreLine
    put "y" into newMessage
  else
    put "n" into newMessage
    if (char 1 to 4 of fileLine) = "SEEN" then
      put "y" into ignoreLine
    else if (char 1 to 8 of fileLine) = "Read Com" then
      put "y" into ignoreLine
    else if (char 1 of fileLine) = "[" then
      put "y" into ignoreLine
    else if (char 1 to 5 of fileLine) = "More?" then
      put "y" into ignoreLine
    else if (char 2 to 4 of fileLine) = "EID" then
      put "y" into ignoreLine
    else if (char 2 to 5 of fileLine) = "PATH" then
      put "y" into ignoreLine
    else
      put "n" into ignoreLine
    end if
  end if
end fidoCheck

on opusCheck
  global newMessage
  global ignoreLine
  global fileLine
  if (char 1 to 4 of fileLine) = "From" then
    put "n" into ignoreLine
    put "y" into newMessage
  else
    put "n" into newMessage
    if (char 1 to 4 of fileLine) = "SEEN" then
      put "y" into ignoreLine
    else
      put "n" into ignoreLine
    end if
  end if
end opusCheck

on genieCheck
  global newMessage
  global ignoreLine
  global fileLine
  if (char 1 to 10 of fileLine = "----------") then
  put "y" into ignoreLine
  put "y" into newMessage
else if (char 1 to 10 of fileLine = "**********") then
  put "y" into newMessage
  put "y" into ignoreLine
else
  put "n" into newMessage
  put "n" into ignoreLine
end if
end genieCheck

on usenetCheck
  global newMessage
  global ignoreLine
  global fileLine
  if (char 1 to 5 of fileLine = "Topic") then
    put "y" into newMessage
  else
    put "n" into newMessage
  end if
  if (char 1 to 5 of fileLine = "--Mor") then
  put "y" into ignoreLine
else
  put "n" into ignoreLine
end if
end usenetCheck

on maugCheck
  global newMessage
  global fileLine
  if (char 1 to 2 of fileLine = "#:") then
    put "y" into newMessage
  else
    put "n" into newMessage
  end if
end maugCheck

on delphiCheck
  global newMessage
  global ignoreLine
  global fileLine
  global fileStr
  if (char 1 to 3 of fileLine = "-*-") then
    read from file fileStr until return
    put "y" into newMessage
    put "y" into ignoreLine
  else if (char 1 to 6 of fileLine = "FORUM>") then
    put "y" into newMessage
    put "y" into ignoreLine
  else if (char 1 to 30 of fileLine = "------------------------------")  then
  put "y" into newMessage
  put "y" into ignoreLine
else
  put "n" into newMessage
  put "n" into ignoreLine
end if
end delphiCheck

on readArticles
  global ignoreLine
  global fileLine
  global fileStr
  global fileEof
  global newMessage
  global whatOn
  put "n" into ignoreLine
  put FileName("TEXT") into fileStr
  if fileStr is empty then exit readArticles
  open file fileStr
  go first card
  set lockscreen to true
  set cursor to 4
  go last card
  put "n" into fileEof
  put "y" into firstNew
  put empty into mainStr
  domenu "New Card"
  put "Scanning for first message…" into message
  put 0 into num
  if whatOn = "other" then
    push card
    go card 1
    put field "other" into source
    go card 3
    put " " into it
    repeat until it is empty
      domenu "new card"
      read from file fileStr until formFeed
      put empty into last character of it
      put it into field main
      put source into field "source"
      put (1 + num) into num
      put "New Cards Created = "&num into message
    end repeat
    domenu "delete card"
  else
    repeat until fileEof = "y"
      read from file fileStr until return
      put it into fileLine
      if fileLine is empty then
        put "y" into fileEof
      end if
      put whatOn & "Check" into it
      do it
      if newMessage = "y" then
        put (1 + num) into num
        put "New Cards Created = "&num into message
        put whatOn into field source
        put the date into field date
        if firstNew = "n" then
          put mainStr into field main
          domenu "new card"
          put empty into mainStr
        else
          put empty into mainStr
          put "n" into firstNew
        end if
      end if
      if ignoreLine = "n" then put fileLine after mainStr
    end repeat
    put mainStr into field main
    put empty into mainStr
  end if
  close file fileStr
  go first card
  put "All done" into message
  beep
end readArticles

on unavailable
  set visible of card field "unavailable" to true
  set visible of card button "ok" to true
  beep
end unavailable




-- part 1 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=72 top=32 right=67 bottom=108
-- title width / last selected line: 0
-- icon id / first selected line: 14767 / 14767
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: About News StackÉ
----- HyperTalk script -----
on mouseUp
  doHelp
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=180 top=92 right=124 bottom=320
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: View Articles
----- HyperTalk script -----
on mouseUp
  addOff
  deleteOff
  push card
  domenu "Find..."
  go third card
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=180 top=128 right=160 bottom=320
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Add Articles
----- HyperTalk script -----
on mouseUp
  global addOn
  if addOn <> "y" then
    displayAdd
  else
    readArticles
  end if
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=180 top=164 right=196 bottom=320
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete Articles
----- HyperTalk script -----
on mouseUp
  addOff
  viewOff
  deleteDate
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=397 top=30 right=69 bottom=438
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris open
  go Home
end mouseUp



-- part 11 (field)
-- low flags: 80
-- high flags: 0004
-- rect: left=6 top=85 right=275 bottom=137
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Services


-- part 12 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=8 top=250 right=268 bottom=132
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: other


-- part 13 (button)
-- low flags: 80
-- high flags: C006
-- rect: left=13 top=101 right=123 bottom=131
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Fido
----- HyperTalk script -----
on mouseUp
  global fidoOn
  global whatOn
  set lockscreen to true
  set visible of card button "Ok" to false
  set visible of card field "unavailable" to false
  if fidoOn <> "y" then
    put whatOn & "Off" into it
    do it
    set hilite of bkgnd button fido to true
    put "y" into fidoOn
    put "fido" into whatOn
  end if
end mouseUp



-- part 14 (button)
-- low flags: 80
-- high flags: 8006
-- rect: left=13 top=122 right=144 bottom=131
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Opus
----- HyperTalk script -----
on mouseUp
  global opusOn
  global whatOn
  set lockscreen to true
  set visible of card button "Ok" to false
  set visible of card field "unavailable" to false
  if opusOn <> "y" then
    put whatOn & "Off" into it
    do it
    set hilite of bkgnd button opus to true
    put "y" into opusOn
    put "opus" into whatOn
  end if
end mouseUp



-- part 15 (button)
-- low flags: 80
-- high flags: 8006
-- rect: left=13 top=143 right=165 bottom=131
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CompuServe
----- HyperTalk script -----
on mouseUp
  global maugOn
  global whatOn
  set lockscreen to true
  set visible of card button "Ok" to false
  set visible of card field "unavailable" to false
  if maugOn <> "y" then
    put whatOn & "Off" into it
    do it
    set hilite of bkgnd button compuserve to true
    put "y" into maugOn
    put "maug" into whatOn
  end if
end mouseUp



-- part 16 (button)
-- low flags: 80
-- high flags: 8006
-- rect: left=13 top=164 right=186 bottom=131
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delphi
----- HyperTalk script -----
on mouseUp
  global delphiOn
  global whatOn
  set lockscreen to true
  set visible of card button "Ok" to false
  set visible of card field "unavailable" to false
  if delphiOn <> "y" then
    put whatOn & "Off" into it
    do it
    set hilite of bkgnd button delphi to true
    put "y" into delphiOn
    put "delphi" into whatOn
  end if
end mouseUp



-- part 17 (button)
-- low flags: 80
-- high flags: 8006
-- rect: left=13 top=185 right=207 bottom=131
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PicoSpan
----- HyperTalk script -----
on mouseUp
  global usenetOn
  global whatOn
  set lockscreen to true
  set visible of card button "Ok" to false
  set visible of card field "unavailable" to false
  if usenetOn <> "y" then
    put whatOn & "Off" into it
    do it
    set hilite of bkgnd button PicoSpan to true
    put "y" into usenetOn
    put "usenet" into whatOn
  end if
end mouseUp



-- part 18 (button)
-- low flags: 80
-- high flags: 8006
-- rect: left=13 top=206 right=228 bottom=131
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Genie
----- HyperTalk script -----
on mouseUp
  global genieOn
  global whatOn
  set lockscreen to true
  set visible of card button "Ok" to false
  set visible of card field "unavailable" to false
  if genieOn <> "y" then
    put whatOn & "Off" into it
    do it
    set hilite of bkgnd button genie to true
    put "y" into genieOn
    put "genie" into whatOn
  end if
end mouseUp



-- part 19 (button)
-- low flags: 80
-- high flags: 8006
-- rect: left=13 top=227 right=249 bottom=131
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Other
----- HyperTalk script -----
on mouseUp
  global otherOn
  global whatOn
  set lockscreen to true
  set visible of card button "Ok" to false
  set visible of card field "unavailable" to false
  if otherOn <> "y" then
    put whatOn & "Off" into it
    do it
    set hilite of bkgnd button other to true
    set visible of bkgnd field other to true
    put "y" into otherOn
    put "other" into whatOn
  end if
end mouseUp



-- part 27 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=180 top=200 right=232 bottom=320
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Edit Clippings
----- HyperTalk script -----
on mouseUp
  addOff
  viewOff
  go to next card
end mouseUp



-- part 28 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=466 top=271 right=288 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 6720 / 6720
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp



-- part 29 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=440 top=271 right=288 bottom=464
-- title width / last selected line: 0
-- icon id / first selected line: 16560 / 16560
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect wipe left
  go to next card
end mouseUp



-- part 30 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=411 top=271 right=288 bottom=439
-- title width / last selected line: 0
-- icon id / first selected line: 15420 / 15420
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go to previous card
end mouseUp



-- part 31 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=180 top=236 right=268 bottom=320
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Clone Stack
----- HyperTalk script -----
on mouseUp
  cloneStack
end mouseUp